home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHREFER.PRG < prev    next >
Text File  |  1986-07-06  |  3KB  |  98 lines
  1. * MHREFER   DB3 PLUS                                 REVISION 10/09/85
  2. *
  3. SET TALK OFF
  4. SET DELIMITER OFF
  5. SET INTENSITY OFF
  6. SELECT A
  7. USE
  8. SELECT B
  9. USE
  10. STORE 0 TO line
  11. STORE [ ] TO choice
  12. STORE [ ] TO waiting
  13. STORE .F. TO found
  14. DO WHILE choice = [ ]
  15.    CLEAR
  16.    ? 'REFERENCES AND SOURCES OF INFORMATION'
  17.    ?
  18.    ? '1. List all references'
  19.    ? '2. Select one specific reference'
  20.    ?
  21.    WAIT 'Enter your choice ' TO choice
  22.    IF choice < '1' .OR. choice > '2'
  23.       STORE [ ] TO choice
  24.    ENDIF
  25. ENDDO WHILE choice = [ ]
  26. IF choice = '1'
  27.    USE MHREFER
  28.    CLEAR
  29.    * Display each record
  30.    ? 'LISTING ALL REFERENCES'
  31.    SET COLOR TO I
  32.    @ line + 2, 0 SAY CHR(255)+'NO'+ REPL(CHR(255),16)+ 'REFERENCE';
  33.    + REPL(CHR(255),52)
  34.    SET COLOR TO
  35.    STORE line + 3 TO line
  36.    DO WHILE .NOT. EOF()
  37.       STORE REF_ID TO mref_id
  38.       STORE REF_ID TO number
  39.       DO WHILE REF_ID = mref_id .AND. .NOT. EOF()
  40.          ? number + [  ] + CITATION
  41.          STORE line + 1 TO line
  42.          STORE [ ] TO number
  43.          IF line >= 20
  44.             ACCEPT 'MORE DATA. PRESS RETURN KEY TO CONTINUE' TO waiting
  45.             CLEAR
  46.             STORE 0 TO line
  47.             ? 'LISTING ALL REFERENCES'
  48.             ?
  49.             SET COLOR TO I
  50.             @ line + 2, 0 SAY CHR(255)+'NO'+ REPL(CHR(255),16)+ 'REFERENCE';
  51.             + REPL(CHR(255),52)
  52.             SET COLOR TO
  53.             STORE line + 3 TO line
  54.          ENDIF line <= 20
  55.          SKIP
  56.       ENDDO WHILE REF:ID = mref:id AND NOT EOF
  57.       ?
  58.    ENDDO WHILE NOT EOF
  59.    ACCEPT 'END OF REFERENCES. PRESS RETURN KEY TO CONTINUE' TO waiting
  60. ENDIF choice = 1
  61. IF choice = '2'
  62.    STORE .T. TO repeat
  63.    USE MHREFER INDEX MHREFER
  64.    DO WHILE repeat
  65.       WAIT 'Enter reference number ' TO mref_id
  66.       CLEAR
  67.       * Display selected reference
  68.       STORE 0 TO line
  69.       FIND &mref_id
  70.       STORE REF_ID TO number
  71.       ? 'SELECTED REFERENCE'
  72.       SET COLOR TO I
  73.       @ line + 2, 0 SAY CHR(255)+'NO'+ REPL(CHR(255),16)+ 'REFERENCE';
  74.       + REPL(CHR(255),52)
  75.       SET COLOR TO
  76.       DO WHILE REF_ID = mref_id .AND. .NOT. EOF()
  77.          ? number + [  ] + CITATION
  78.          STORE [ ] TO number
  79.          STORE .T. TO found
  80.          SKIP
  81.       ENDDO WHILE REF:ID = mref:id AND NOT EOF
  82.    IF .NOT. found
  83.       ? 'Reference ' + mref_id + ' not found'
  84.       STORE .F. TO found
  85.    ENDIF
  86.    ?
  87.    WAIT 'Do you want to select another reference? ' TO choice
  88.    IF UPPER(choice) <> 'Y'
  89.       STORE .F. TO repeat
  90.    ENDIF
  91.    ENDDO WHILE repeat
  92. ENDIF choice = 2
  93. RELEASE ALL
  94. RETURN
  95.  
  96.  
  97.  
  98.